home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (DO)
/
Micro on the Apple Volume 2 (1981)(Micro Ink).zip
/
Micro on the Apple Volume 2 (1981)(Micro Ink).do
/
COLOR GUN.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
2KB
|
70 lines
1 REM ************************
2 REM * *
3 REM * COLOR GUN *
4 REM * NEIL LIPSON *
5 REM * *
6 REM * COPYRIGHT (C) 1981 *
7 REM * MICRO INK, INC. *
8 REM * CHELMSFORD, MA 01824 *
9 REM * ALL RIGHTS RESERVED *
10 REM * *
11 REM ************************
12 REM
13 REM
14 REM
15 CALL -936: VTAB 10: HTAB 10: PRINT "COLOR GUN BY NEIL D. LIPSON": FOR I = 1 TO 2000: NEXT I
16 REM
17 REM YELLOW-2
18 REM BLUE -1
19 REM RED -0
20 REM
22 CALL -936: PRINT : PRINT : PRINT : PRINT
25 GOSUB 1000
30 CALL -936: PRINT : PRINT
32 A = PDL(0)
35 REM
40 B = PDL(1)
45 REM
50 C = PDL(2)
55 REM
60 A = A *A1
61 B = B *B1
62 C = C *C1
70 B = B/1.5
100 PRINT "RED CELL=";A
110 PRINT "BLUE CELL=";B
115 PRINT "YELLOW CELL=";C
116 PRINT : PRINT
117 PRINT "THE COLOR IS:": PRINT
118 PRINT "*********************"
121 IF C <B AND C <(A) THEN PRINT "YELLOW"
123 IF A <B AND A <C THEN PRINT "RED"
124 IF A >B AND A >C THEN PRINT "GREEN"
125 IF B >A AND B >C THEN PRINT "OR<CTRL-A>ANGE"
126 IF C <AC >B THEN PRINT "PURPLE"
129 IF B <C AND B <(A) THEN PRINT "BLUE"
130 PRINT "*********************"
131 FOR X = 1 TO 2300: NEXT X
140 GOTO 30
200 END
1000 CALL -936: PRINT
1010 PRINT "POINT GUN AT A WHITE SHEET OF PAPER"
1020 FOR I = 1 TO 1500: NEXT I
1030 A1 = PDL(0)
1035 REM
1040 B1 = PDL(1)
1045 REM
1050 C1 = PDL(2)
1055 PRINT "A1=";A1
1056 PRINT "B1=";B1
1057 PRINT "C1=";C1
1060 D1 = A1 *B1 *C1
1070 A1 = D1/A1
1080 B1 = D1/B1
1090 C1 = D1/C1
1100 PRINT "CORRECTION FACTOR FOR RED = ";A1
1110 PRINT "CORRECTION FACTOR FOR BLUE = ";B1
1120 PRINT "CORRECTION FACTOR FOR YELLOW = ";C1
1125 FOR I = 1 TO 2000: NEXT I
1130 RETURN
10000 END